﻿<%@ Page Title="" Language="C#" MasterPageFile="~/Views/Shared/Site.Master" Inherits="System.Web.Mvc.ViewPage" %>

<asp:Content ID="Content1" ContentPlaceHolderID="TitleContent" runat="server">
	缩水软件
</asp:Content>

<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" runat="server">

<fieldset>
    <legend>缩水软件</legend>
    
<form name="xh" action="" method="post">
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
 <tbody><tr>
    <td>
<div align="center">
     </div>
<table style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
 
<tbody>
  <tr>
    <td width="60%">百位:<input type="checkbox" value="0" name="nb">0<input type="checkbox" value="1" name="nb">1<input type="checkbox" value="2" name="nb">2<input type="checkbox" value="3" name="nb">3<input type="checkbox" value="4" name="nb">4<input type="checkbox" value="5" name="nb">5<input type="checkbox" value="6" name="nb">6<input type="checkbox" value="7" name="nb">7<input type="checkbox" value="8" name="nb">8<input type="checkbox" value="9" name="nb">9 <input type="button" value="全选" name="nbqx"> <input type="button" value="全不选" name="nbqbx"><br>十位:<input type="checkbox" value="0" name="ns">0<input type="checkbox" value="1" name="ns">1<input type="checkbox" value="2" name="ns">2<input type="checkbox" value="3" name="ns">3<input type="checkbox" value="4" name="ns">4<input type="checkbox" value="5" name="ns">5<input type="checkbox" value="6" name="ns">6<input type="checkbox" value="7" name="ns">7<input type="checkbox" value="8" name="ns">8<input type="checkbox" value="9" name="ns">9 <input type="button" value="全选" name="nsqx"> <input type="button" value="全不选" name="nsqbx"><br>个位:<input type="checkbox" value="0" name="ng">0<input type="checkbox" value="1" name="ng">1<input type="checkbox" value="2" name="ng">2<input type="checkbox" value="3" name="ng">3<input type="checkbox" value="4" name="ng">4<input type="checkbox" value="5" name="ng">5<input type="checkbox" value="6" name="ng">6<input type="checkbox" value="7" name="ng">7<input type="checkbox" value="8" name="ng">8<input type="checkbox" value="9" name="ng">9 <input type="button" value="全选" name="ngqx"> <input type="button" value="全不选" name="ngqbx"></td>        
    <td width="40%" bgcolor="#F6F6F6">
      <p align="center"><br>
        <input type="button" value="生 成 大 底 " name="dd"></p></td></tr></tbody></table>
             
<div align="center">
<table id="table1" cellspacing="0" cellpadding="0" width="760" bgcolor="#CCCCCC" border="0">
  <tbody>
  <tr>
  <td bgcolor="#c1ffff"><textarea style="WIDTH: 100%" name="num3d" rows="20" cols="20"></textarea></td></tr>
  <tr>
    <td><input type="button" value="单 变 组 " name="numtxtdbs"></td></tr></tbody></table></div>
    
<table id="table13" style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
      <td width="54%" rowspan="2"><input type="checkbox" value="0" name="cpls">000     
      <input type="checkbox" value="1" name="cpls">001 <input type="checkbox" value="2" name="cpls">002 <input type="checkbox" value="3" name="cpls">010 <input type="checkbox" value="4" name="cpls">011 <input type="checkbox" value="5" name="cpls">012 <input type="checkbox" value="6" name="cpls">020 <input type="checkbox" value="7" name="cpls">021 <input type="checkbox" value="8" name="cpls">022<br><input type="checkbox" value="9" name="cpls">100 <input type="checkbox" value="10" name="cpls">101 <input type="checkbox" value="11" name="cpls">102 <input type="checkbox" value="12" name="cpls">110 <input type="checkbox" value="13" name="cpls">111 <input type="checkbox" value="14" name="cpls">112 <input type="checkbox" value="15" name="cpls">120 <input type="checkbox" value="16" name="cpls">121 <input type="checkbox" value="17" name="cpls">122<br><input type="checkbox" value="18" name="cpls">200 <input type="checkbox" value="19" name="cpls">201 <input type="checkbox" value="20" name="cpls">202 <input type="checkbox" value="21" name="cpls">210 <input type="checkbox" value="22" name="cpls">211 <input type="checkbox" value="23" name="cpls">212 <input type="checkbox" value="24" name="cpls">220 <input type="checkbox" value="25" name="cpls">221 <input type="checkbox" value="26" name="cpls">222</td>
    <td bgcolor="#F6F6F6">
      <p align="left">&nbsp;     
      </p></td></tr>
  <tr>
    <td bgcolor="#F6F6F6">
      <p align="center"><input type="button" value="过虑012路" name="lsbt"></p></td></tr></tbody></table>
<div align="center">
<table id="table4" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
    
    <td width="54%"><input type="checkbox" value="0" name="cpzh">00<input type="checkbox" value="1" name="cpzh">01<input type="checkbox" value="2" name="cpzh">02<input type="checkbox" value="3" name="cpzh">03<input type="checkbox" value="4" name="cpzh">04<input type="checkbox" value="5" name="cpzh">05<input type="checkbox" value="6" name="cpzh">06<input type="checkbox" value="7" name="cpzh">07<input type="checkbox" value="8" name="cpzh">08<input type="checkbox" value="9" name="cpzh">09<input type="checkbox" value="10" name="cpzh">11<br><input type="checkbox" value="11" name="cpzh">12<input type="checkbox" value="12" name="cpzh">13<input type="checkbox" value="13" name="cpzh">14<input type="checkbox" value="14" name="cpzh">15<input type="checkbox" value="15" name="cpzh">16<input type="checkbox" value="16" name="cpzh">17<input type="checkbox" value="17" name="cpzh">18<input type="checkbox" value="18" name="cpzh">19<input type="checkbox" value="19" name="cpzh">22<input type="checkbox" value="20" name="cpzh">23<input type="checkbox" value="21" name="cpzh">24<br><input type="checkbox" value="22" name="cpzh">25<input type="checkbox" value="23" name="cpzh">26<input type="checkbox" value="24" name="cpzh">27<input type="checkbox" value="25" name="cpzh">28<input type="checkbox" value="26" name="cpzh">29<input type="checkbox" value="27" name="cpzh">33<input type="checkbox" value="28" name="cpzh">34<input type="checkbox" value="29" name="cpzh">35<input type="checkbox" value="30" name="cpzh">36<input type="checkbox" value="31" name="cpzh">37<input type="checkbox" value="32" name="cpzh">38<br><input type="checkbox" value="33" name="cpzh">39<input type="checkbox" value="34" name="cpzh">44<input type="checkbox" value="35" name="cpzh">45<input type="checkbox" value="36" name="cpzh">46<input type="checkbox" value="37" name="cpzh">47<input type="checkbox" value="38" name="cpzh">48<input type="checkbox" value="39" name="cpzh">49<input type="checkbox" value="40" name="cpzh">55<input type="checkbox" value="41" name="cpzh">56<input type="checkbox" value="42" name="cpzh">57<input type="checkbox" value="43" name="cpzh">58<br><input type="checkbox" value="44" name="cpzh">59<input type="checkbox" value="45" name="cpzh">66<input type="checkbox" value="46" name="cpzh">67<input type="checkbox" value="47" name="cpzh">68<input type="checkbox" value="48" name="cpzh">69<input type="checkbox" value="49" name="cpzh">77<input type="checkbox" value="50" name="cpzh">78<input type="checkbox" value="51" name="cpzh">79<input type="checkbox" value="52" name="cpzh">88<input type="checkbox" value="53" name="cpzh">89<input type="checkbox" value="54" name="cpzh">99</td>
    <td bgcolor="#F6F6F6">　　
      <p align="center"><!--<input type=checkbox value=10 name=cpzhfx>反选<br>-->
      &nbsp;<input type="button" value="组合过虑" name="zhbt"></p></td></tr></tbody></table>
<div align="center">
<table id="table5" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
    
    <td width="54%" rowspan="2"><input type="checkbox" value="0" name="sumgl">0 <input type="checkbox" value="1" name="sumgl"> 1 <input type="checkbox" value="2" name="sumgl"> 2 <input type="checkbox" value="3" name="sumgl"> 3 <input type="checkbox" value="4" name="sumgl"> 4 <input type="checkbox" value="5" name="sumgl"> 5 <input type="checkbox" value="6" name="sumgl"> 6 <input type="checkbox" value="7" name="sumgl"> 7 <input type="checkbox" value="8" name="sumgl">8 <input type="checkbox" value="9" name="sumgl">9<br><input type="checkbox" value="10" name="sumgl">10 <input type="checkbox" value="11" name="sumgl">11 <input type="checkbox" value="12" name="sumgl">12 <input type="checkbox" value="13" name="sumgl">13 <input type="checkbox" value="14" name="sumgl">14 <input type="checkbox" value="15" name="sumgl">15 <input type="checkbox" value="16" name="sumgl">16 <input type="checkbox" value="17" name="sumgl">17 <input type="checkbox" value="18" name="sumgl">18<br><input type="checkbox" value="19" name="sumgl">19 <input type="checkbox" value="20" name="sumgl">20 <input type="checkbox" value="21" name="sumgl">21 <input type="checkbox" value="22" name="sumgl">22 <input type="checkbox" value="23" name="sumgl">23 <input type="checkbox" value="24" name="sumgl">24 <input type="checkbox" value="25" name="sumgl">25 <input type="checkbox" value="26" name="sumgl">26 <input type="checkbox" value="27" name="sumgl">27</td>    
    <td bgcolor="#F6F6F6">
      <p align="center">　　<br>
       <input type="checkbox" value="1" name="c3y1">除3余1<input type="checkbox" value="2" name="c3y2">除3余2<inputtype=checkbox value="0" name="c3y0">除3余0</inputtype=checkbox></p></td></tr>
  <tr>
    <td bgcolor="#F6F6F6">
      <p align="center"><input type="button" value="和值过虑" name="cpsum"></p></td></tr></tbody></table>
<div align="center">
<table id="table6" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
    
    <td width="54%"><input type="checkbox" value="0" name="kd">0 <input type="checkbox" value="1" name="kd">1 <input type="checkbox" value="2" name="kd">2     
      <input type="checkbox" value="3" name="kd">3 <input type="checkbox" value="4" name="kd">4 <input type="checkbox" value="5" name="kd">5 <input type="checkbox" value="6" name="kd">6 <input type="checkbox" value="7" name="kd">7 <input type="checkbox" value="8" name="kd">8 <input type="checkbox" value="9" name="kd">9</td>    
    <td bgcolor="#F6F6F6">
      <p align="center"><br><input type="button" value="跨度过虑" name="kdbt"></p></td></tr></tbody></table>
<table id="table12" style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
   
    <td width="54%"><input type="checkbox" value="0" name="xd">0 <input type="checkbox" value="1" name="xd">1 <input type="checkbox" value="2" name="xd">2     
      <input type="checkbox" value="3" name="xd">3 <input type="checkbox" value="4" name="xd">4 <input type="checkbox" value="5" name="xd">5 <input type="checkbox" value="6" name="xd">6 <input type="checkbox" value="7" name="xd">7 <input type="checkbox" value="8" name="xd">8 <input type="checkbox" value="9" name="xd">9</td>    
    <td bgcolor="#F6F6F6">
      <p align="center"><br><input type="button" value="选胆过虑" name="xdbt"></p></td></tr></tbody></table>
<div align="center">
<table id="table7" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
    
    <td width="54%"><input type="checkbox" value="0" name="cpds">奇奇奇 <input type="checkbox" value="1" name="cpds">奇奇偶 <input type="checkbox" value="2" name="cpds">奇偶奇 <input type="checkbox" value="3" name="cpds">奇偶偶<br><input type="checkbox" value="4" name="cpds">偶奇奇 <input type="checkbox" value="5" name="cpds">偶偶奇 <input type="checkbox" value="6" name="cpds">偶奇偶 <input type="checkbox" value="7" name="cpds">偶偶偶</td>
    <td bgcolor="#F6F6F6">
      <p align="center"><br><input type="button" value="奇偶过虑" name="dsbt"></p></td></tr></tbody></table>
<div align="center">
<table id="table8" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
    
    <td width="54%"><input type="checkbox" value="0" name="cpdx">大大大 <input type="checkbox" value="1" name="cpdx">大大小 <input type="checkbox" value="2" name="cpdx">大小大 <input type="checkbox" value="3" name="cpdx">小大大<br><input type="checkbox" value="4" name="cpdx">大小小 <input type="checkbox" value="5" name="cpdx">小大小 <input type="checkbox" value="6" name="cpdx">小小大 <input type="checkbox" value="7" name="cpdx">小小小</td>
    <td bgcolor="#F6F6F6">
      <p align="center"><br><input type="button" value="大小过虑" name="dxbt"></p></td></tr></tbody></table>
<div align="center">
<table id="table9" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table id="table2" style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
    
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" width="54%" rowspan="2"><input type="checkbox" value="0" name="zhgl">质质质 <input type="checkbox" value="1" name="zhgl">质质合 <input type="checkbox" value="2" name="zhgl">质合质 <input type="checkbox" value="3" name="zhgl">合质质<br><input type="checkbox" value="4" name="zhgl">合质合 <input type="checkbox" value="5" name="zhgl">合合质 <input type="checkbox" value="6" name="zhgl">质合合 <input type="checkbox" value="7" name="zhgl">合合合</td>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" bgcolor="#F6F6F6">
      <p align="left"><br>　</p></td></tr>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" bgcolor="#F6F6F6">
      <p align="center"><input type="button" value="质合过虑" name="zshbt"></p></td></tr></tbody></table>
<div align="center">
<table id="table10" height="2" cellspacing="0" cellpadding="0" width="760" bgcolor="#ffffff" border="0">
  <tbody>
  <tr>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px"></tr></tbody></table></div>
<table id="table3" style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
   
</tr></tbody></table><table id="table11" style="BORDER-RIGHT: #ffe488 1px solid; BORDER-TOp: #ffe488 1px solid; BORDER-LEFT: #ffe488 1px solid; BORDER-BOTTOM: #ffe488 1px solid" cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#fffdf4">
  <tbody>
  <tr>
   <!--<td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" width=60 bgColor=#CC0000>
      <p align=center><FONT color=#ffffff>其它</FONT></p></td>-->
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" width="49%"><input type="checkbox" value="1" name="qtz3gl">组三 <input type="checkbox" value="2" name="qtz6gl">组六 <input type="checkbox" value="2" name="qtbzgl">豹子</td>
    <td style="FONT-SIZE: 12px; LINE-HEIGHT: 18px" bgcolor="#F6F6F6">
    <p align="center"><input type="button" value="过虑" 过虑="" name="qtnumbt"></p></td></tr></tbody>
  </table>
  <br></td>
  </tr>
</tbody></table>
</fieldset>
</form>
</asp:Content>

<asp:Content ID="Content3" ContentPlaceHolderID="StyleAndScript" runat="server">
 
<style type="text/css"> 

.style1 {
	color: #333333;
	font-weight: bold;
}
.style2 {color: #333333}
</style>

<script type="text/javascript">
    window.ClearEvent = function () {
        event.cancelBubble = false; var sSrcTagName = event.srcElement.tagName.toLowerCase();
        return (sSrcTagName == "textarea" || sSrcTagName == "input" || sSrcTagName == "select");
    }
    window.ClearKey = function () { event.cancelBubble = false; var iKeyCode = event.keyCode; return !(iKeyCode == 78 && event.ctrlKey); }
    with (window.document) { oncontextmenu = onselectstart = ondragstart = window.ClearEvent; onkeydown = window.ClearKey; }
</script>

<script type="text/vbscript">
  
  dim nbnb,nbns,nbng,cpzs,cpnum,cpnumb,cpnums,cpnumg,cpsnum,numsum3d,cpnumber
  dim cpnumall(999)
  cpzs=0
  sub dispplaynum3d
  cpsnum="" 
  cpnumber=0
  for i=0 to 999
  if cpnumall(i)<>empty then
  cpnumber=cpnumber+1
  cpsnum=cpsnum+" "+cpnumall(i)
  end if
  next
    xh.num3d.value=""
    xh.num3d.value=trim(cpsnum)&CHR(10)&chr(10)&"经过虑后还剩"&cpnumber&"注。购买需要现金："&cpnumber*2
  end sub
  
  sub kdbt_onclick
   for i=0 to 9
    if xh.kd(i).checked=true then
     for ii=0 to 999
      if cpnumall(ii)<>empty then
       numkdb=cint(mid(cpnumall(ii),1,1))
       numkds=cint(mid(cpnumall(ii),2,1))
       numkdg=cint(mid(cpnumall(ii),3,1))
       if numkdb>=numkds and numkds>=numkdg then kdz=numkdb-numkdg
       if numkdb>=numkdg and numkdg>=numkds then kdz=numkdb-numkds
       if numkdg>=numkdb and numkdb>=numkds then kdz=numkdg-numkds
       if numkdg>=numkds and numkds>=numkdb then kdz=numkdg-numkdb
       if numkds>=numkdb and numkdb>=numkdg then kdz=numkds-numkdg
       if numkds>=numkdg and numkdg>=numkdb then kdz=numkds-numkdb
       if cint(kdz)=cint(i) then cpnumall(ii)=empty
      end if
     next
    end if
   next
   call dispplaynum3d
  end sub
  
  sub numtxtdbs_onclick
   for i=0 to 999
    if cpnumall(i)<>empty then
       numzd1w=mid(cpnumall(i),1,1)
       numzd2w=mid(cpnumall(i),2,1)
       numzd3w=mid(cpnumall(i),3,1)
     if numzd1w<>numzd2w and numzd2w<>numzd3w and numzd1w<>numzd3w then
       cpnumall(cint(numzd1w&numzd3w&numzd2w))=empty
       cpnumall(cint(numzd2w&numzd1w&numzd3w))=empty
       cpnumall(cint(numzd2w&numzd3w&numzd1w))=empty
       cpnumall(cint(numzd3w&numzd1w&numzd2w))=empty
       cpnumall(cint(numzd3w&numzd2w&numzd1w))=empty
     else
      if numzd1w=numzd2w and numzd1w=numzd3w then
        cpnumall(i)=cpnumall(i)
      else
      if numzd1w=numzd2w then
        cpnumall(cint(numzd3w&numzd1w&numzd2w))=empty
        cpnumall(cint(numzd1w&numzd3w&numzd2w))=empty
      end if
      if numzd1w=numzd3w then
       cpnumall(cint(numzd1w&numzd3w&numzd2w))=empty
       cpnumall(cint(numzd2w&numzd1w&numzd3w))=empty
      end if
      if numzd2w=numzd3w then
       cpnumall(cint(numzd2w&numzd1w&numzd3w))=empty
       cpnumall(cint(numzd2w&numzd3w&numzd1w))=empty
      end if
      end if
 
 
     end if
    end if
   next
   call dispplaynum3d
  end sub
  
  sub c3y0_onclick
   for i=0 to 27
    if i mod 3 = 0 then
     if xh.c3y0.checked=true then
     xh.sumgl(i).checked=true
     else
     xh.sumgl(i).checked=false
     end if
    end if
   next
  end sub
  
   sub c3y1_onclick
   for i=0 to 27
    if i mod 3 = 1 then
     if xh.c3y1.checked=true then
     xh.sumgl(i).checked=true
     else
     xh.sumgl(i).checked=false
     end if
    end if
   next
  end sub
  
   sub c3y2_onclick
   for i=0 to 27
    if i mod 3 = 2 then
     if xh.c3y2.checked=true then
     xh.sumgl(i).checked=true
     else
     xh.sumgl(i).checked=false
     end if
    end if
   next
  end sub
  
  sub lsbt_onclick
   if xh.cpls(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
    if xh.cpls(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
       if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
       end if
     end if
    next
   end if
   
   if xh.cpls(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(8).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=0 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(9).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(10).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(11).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(12).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(13).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(14).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(15).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(16).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(17).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=1 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(18).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(19).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(20).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=0 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(21).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(22).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(23).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=1 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(24).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=0 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpls(25).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=1 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  if xh.cpls(26).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 3=2 and cint(mid(cpnumall(i),2,1)) mod 3=2 and cint(mid(cpnumall(i),3,1)) mod 3=2 then
         cpnumall(i)=empty
      end if
     end if
    next
   end if
   
  call dispplaynum3d
  end sub
  
  sub zhbt_onclick
  dim zhl(99)
  zhl(0)="00"
  zhl(1)="01"
  zhl(2)="02"
  zhl(3)="03"
  zhl(4)="04"
  zhl(5)="05"
  zhl(6)="06"
  zhl(7)="07"
  zhl(8)="08"
  zhl(9)="09"
  for i=10 to 99
  zhl(i)=cstr(i)
  next
  n=1
  zi=0
  for i=0 to 54
   if xh.cpzh(i).checked=true then
   if mid(zhl(zi),1,1)=mid(zhl(zi),2,1) then
   
   for ii=0 to 999
     if cpnumall(ii)<>empty then
     iiiin=0
       for iiii=1 to 3
        if cstr(mid(cpnumall(ii),iiii,1))=cstr(mid(zhl(zi),1,1)) then iiiin=iiiin+1
       next
        if iiiin>1 then cpnumall(ii)=empty
     end if
    next
 
   
   else
    for ii=0 to 999
     if cpnumall(ii)<>empty then
       if instr(cpnumall(ii),cstr(mid(zhl(zi),1,1)))<>0 and instr(cpnumall(ii),cstr(mid(zhl(zi),2,1)))<>0 then
         cpnumall(ii)=empty
       end if
     end if
    next
    end if
   end if
   if right(zhl(zi),1)="9" then
   zi=cstr(cint(zi)+n)
   n=n+1
   end if
   zi=zi+1
  next
  
  call dispplaynum3d
  end sub
  
  sub nbqx_onclick
    for i=0 to 9
        xh.nb(i).checked=true
    next
  end sub
  sub nbqbx_onclick
    for i=0 to 9
        xh.nb(i).checked=false
    next
  end sub
 
  sub nsqx_onclick    
    for i=0 to 9
        xh.ns(i).checked=true
    next
  end sub
  sub nsqbx_onclick    
    for i=0 to 9
        xh.ns(i).checked=false
    next
  end sub
  
    sub ngqx_onclick    
    for i=0 to 9
        xh.ng(i).checked=true
    next
  end sub
  sub ngqbx_onclick    
    for i=0 to 9
        xh.ng(i).checked=false
    next
  end sub
  
  sub dd_onclick
  for i=0 to 999
  cpnumall(i)=empty
  next
  nbnb=""
  nbns=""
  nbng=""
  cpsnum=""
    for i=0 to 9
     if xh.nb(i).checked=true then
     nbnb=nbnb+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.ns(i).checked=true then
     nbns=nbns+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.ng(i).checked=true then
     nbng=nbng+cstr(i)
     end if
    next
    
    for i=1 to len(nbnb)
      cpnumb=mid(nbnb,i,1)
       for ii=1 to len(nbns)
        cpnums=mid(nbns,ii,1)
         for iii=1 to len(nbng)
         cpnumg=mid(nbng,iii,1)
         cpnum=cstr(cpnumb)+cstr(cpnums)+cstr(cpnumg)
         cpnumall(cint(cpnum))=cpnum
         cpsnum=cpsnum+" "+cpnum
         next
       next
    next
    
      cpzs=len(nbnb)*len(nbns)*len(nbng)
      xh.num3d.value="你选择的大底复式为:"&nbnb&"+"&nbns&"+"&nbng& "共计:"&cpzs&"注,"&cpzs*2&"元."&chr(10)&chr(10)&trim(cpsnum)
  end sub
  sub kdgl_onclick
    if xh.kd(0).checked=true then
    call kd0
    end if
  cpsnum=""
  for i=0 to 999
  if cpnumall(i)<>empty then
  cpsnum=cpsnum+" "+cpnumall(i)
  xh.num3d.value=chr(10)&trim(cpsnum)
  end if
  next
  end sub
  sub cpsum_onclick
   for i=0 to 27
    if xh.sumgl(i).checked=true then
      for ii=0 to 999
       numsum3d=0
       for iii=1 to len(ii)
        numsum3d=numsum3d+mid(ii,iii,1)
       next
        if i=numsum3d then
         cpnumall(ii)=empty
        end if
      next
    end if
   next
   
  call dispplaynum3d
  end sub
  
  sub szbt_onclick
  dim asznum(6),bsznum(8)
   asznum(0)=102
   asznum(1)=123
   asznum(2)=234
   asznum(3)=345
   asznum(4)=567
   asznum(5)=678
   asznum(6)=789
   bsznum(0)=10
   bsznum(1)=12
   bsznum(3)=32
   bsznum(4)=34
   bsznum(5)=56
   bsznum(6)=67
   bsznum(7)=78
   bsznum(8)=89
   if xh.szgla.checked =true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      for ii=0 to 6
           if instr(cpnumall(i),mid(asznum(ii),1,1))<>0 and instr(cpnumall(i),mid(asznum(ii),2,1))<>0 and instr(cpnumall(i),mid(asznum(ii),3,1))<>0 then
           cpnumall(i)=empty
           exit for
           end if
      next
     end if
    next
   end if
   
   if xh.szglb.checked =true then
   call zhbt_onclick
   end if
   
   call dispplaynum3d
  end sub
  
  sub szglb_onclick
  for i=0 to 54
  xh.cpzh(i).checked=false
  next
  if xh.szglb.checked=true then
    xh.cpzh(1).checked=true
    xh.cpzh(11).checked=true
    xh.cpzh(20).checked=true
    xh.cpzh(27).checked=true
    xh.cpzh(35).checked=true
    xh.cpzh(41).checked=true
    xh.cpzh(46).checked=true
    xh.cpzh(50).checked=true
    xh.cpzh(53).checked=true
  else
   for i=0 to 54
    xh.cpzh(i).checked=false
   next
  end if
  end sub
  
  sub dsbt_onclick
   if xh.cpds(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=1 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=1 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=1 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpds(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1)) mod 2=0 and cint(mid(cpnumall(i),2,1)) mod 2=0 and cint(mid(cpnumall(i),3,1)) mod 2=0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   call dispplaynum3d
  end sub
  
  sub dxbt_onclick
   if xh.cpdx(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))>4 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))>4 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))>4 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.cpdx(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if cint(mid(cpnumall(i),1,1))<5 and cint(mid(cpnumall(i),2,1))<5 and cint(mid(cpnumall(i),3,1))<5 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   call dispplaynum3d
  end sub
  
  sub zshbt_onclick
   if xh.zhgl(0).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(1).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(2).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(3).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(4).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("12357",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(5).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("12357",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(6).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("12357",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   
   if xh.zhgl(7).checked=true then
    for i=0 to 999
     if cpnumall(i)<>empty then
      if instr("04689",mid(cpnumall(i),1,1))<>0 and instr("04689",mid(cpnumall(i),2,1))<>0 and instr("04689",mid(cpnumall(i),3,1))<>0 then
       cpnumall(i)=empty
      end if
     end if
    next
   end if
   call dispplaynum3d
  end sub
  
  sub cpzhfx_onclick
   for i=0 to 54
    if xh.cpzh(i).checked=true then
    xh.cpzh(i).checked=false
    else
    xh.cpzh(i).checked=true
    end if
   next
  end sub
  
  sub qtnumbt_onclick
   if xh.qtz3gl.checked=true then
    for i=0 to 999
    if cpnumall(i)<>empty then
     if mid(cpnumall(i),1,1)=mid(cpnumall(i),2,1) or mid(cpnumall(i),1,1)=mid(cpnumall(i),3,1) or mid(cpnumall(i),2,1)=mid(cpnumall(i),3,1) then
      if mid(cpnumall(i),1,1)=mid(cpnumall(i),2,1) and mid(cpnumall(i),2,1)=mid(cpnumall(i),3,1) then
      cpnumall(i)=cpnumall(i)
      else
      cpnumall(i)=empty
      end if
     end if
    end if
    next
   end if
   
   if xh.qtz6gl.checked=true then
    for i=0 to 999
    if cpnumall(i)<>empty then
     if mid(cpnumall(i),1,1)<>mid(cpnumall(i),2,1) and mid(cpnumall(i),1,1)<>mid(cpnumall(i),3,1) and mid(cpnumall(i),2,1)<>mid(cpnumall(i),3,1) then
      cpnumall(i)=empty
     end if
    end if
    next
   end if
   
  if xh.qtbzgl.checked=true then
    for i=0 to 999
    if cpnumall(i)<>empty then
     if mid(cpnumall(i),1,1)=mid(cpnumall(i),2,1) and mid(cpnumall(i),2,1)=mid(cpnumall(i),3,1) then
      cpnumall(i)=empty
     end if
    end if
    next
   end if
   
   call dispplaynum3d
  end sub
  sub xdbt_onclick
  dim xdnum
  xdnum=""
   for i=0 to 9
    if xh.xd(i).checked=true then
      xdnum=xdnum+cstr(i)
    end if
   next
   for i=0 to 999
   xdii=0
    for ii=1 to len(xdnum)
     if instr(cpnumall(i),mid(xdnum,ii,1))<>0 then
      xdii=xdii+1
     end if
    next
    if xdii=0 then
    cpnumall(i)=empty
    end if
   next
   call dispplaynum3d
  end sub
sub ljfs_onclick
  nbnub=""
  nbnus=""
  nbnug=""
  cpsnum=""
    for i=0 to 9
     if xh.nub(i).checked=true then
     nbnub=nbnub+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.nus(i).checked=true then
     nbnus=nbnus+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.nug(i).checked=true then
     nbnug=nbnug+cstr(i)
     end if
    next
    
    for i=1 to len(nbnub)
      cpnumb=mid(nbnub,i,1)
       for ii=1 to len(nbnus)
        cpnums=mid(nbnus,ii,1)
         for iii=1 to len(nbnug)
         cpnumg=mid(nbnug,iii,1)
         cpnum=cstr(cpnumb)+cstr(cpnums)+cstr(cpnumg)
         cpnumall(cint(cpnum))=empty
         next
       next
    next
   call dispplaynum3d
  end sub
  
  sub dwsbt_onclick
  dbnub=""
  dbnus=""
  dbnug=""
    for i=0 to 9
     if xh.dwsb(i).checked=true then
     dbnub=dbnub+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.dwss(i).checked=true then
     dbnus=dbnus+cstr(i)
     end if
    next
    
    for i=0 to 9
     if xh.dwsg(i).checked=true then
     dbnug=dbnug+cstr(i)
     end if
    next
    
  for i=0 to 999
    for ib=1 to len(dbnub)
      if mid(cpnumall(i),1,1)=mid(dbnub,ib,1) then cpnumall(i)=empty
    next
    for si=1 to len(dbnus)
      if mid(cpnumall(i),2,1)=mid(dbnus,si,1) then cpnumall(i)=empty
    next
    for ig=1 to len(dbnug)
      if mid(cpnumall(i),3,1)=mid(dbnug,ig,1) then cpnumall(i)=empty
    next
  next    
   call dispplaynum3d
  end sub
 
</script>
</asp:Content>
